home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / playcdda1.1_opus5 / arexx / PlayMPEG_DT.dopus5 < prev   
Text File  |  1995-08-13  |  2KB  |  75 lines
  1. /* Programm: PlayMPEG_DT.dopus5
  2. ** $VER: PlayMPEG_DT.dopus5 V2.2
  3. **
  4. ** 
  5. ** Needed: Directory Opus V5.xx (© by Jonathan Potter & GPSoftware)
  6. **         mpega (© 1995 by Stephane Tavenard) or/and 
  7. **         PeggyPlus MPEG-Card (© Ingenierbuero Helfrich)
  8. **         PeggyPlus:MPEGPlayer >= V4.7
  9. **
  10. ** Copyright © 1995 Eckhard Ludwig (Eckhard@top.east.de)
  11. ** PlayMPEG_DT.dopus5 is freeware. It may be distributed freely.
  12. **
  13. ** Play compressed sound (MPEG Layer 1&2) from DOpus5. Only for DOpus5-filetypes,
  14. ** install filetypes "Compressed sound, MPEG [L2]" to DOpus5:Filetypes
  15. **
  16. ** Call as:
  17. ** --------------------------------------------------------------------------
  18. ** (Doubleklick)   ARexx DOpus5:ARexx/PlayMPEG_DT.dopus5 {f} {Qp}
  19. ** --------------------------------------------------------------------------
  20. ** Set all Attribut off.
  21. */
  22.  
  23. /*- Path to MPEGPlayer command --edit options in line 71 !-----------------*/
  24. Player = "C:mpega"   /* Softwareplayer */
  25. /*-------------------------------------------------------------------------*/
  26.  
  27. Index  = 'T:PlayDOpus5Index.temp'
  28.  
  29. parse arg '"' Titel '"' portname cmd
  30.  
  31. if portname='' then
  32.    portname='DOPUS.1'
  33. address value portname
  34.  
  35. options results
  36. options failat 21
  37.  
  38. address command 'Delete >NIL: '||Index
  39. if exists(Index) then do
  40.     address value portname
  41.     dopus front
  42.     dopus request '"Bitte warten, MPEG-Player läuft bereits." Abbruch'
  43.   exit
  44. end
  45.  
  46. if ~show('l','rexxsupport.library') then
  47.     call addlib('rexxsupport.library',0,-30,0)
  48.  
  49. if showlist("A","PEGGYPLUS")=1 then do
  50.    if ~show('P','Peggy') then do
  51.      address command 'stack 8192'
  52.      address command 'RUN >NIL: <NIL: PEGGYPLUS:MPEGPlayer'
  53.      address command 'waitforport Peggy'
  54.      address value portname
  55.      dopus front
  56.    end
  57. end
  58.     
  59. if show('P','Peggy') then do
  60.    address 'Peggy'
  61.    open '"'Titel'"'
  62.    setwindow XOFF 0 YOFF 0 WIDTH 1 HEIGHT 1 XPIC 0 YPIC 0
  63.    Play async
  64.    end
  65. else do
  66.    if ~exists(Player) then do
  67.       dopus front
  68.       dopus request '"PlayMPEG_DT.dopus5 Error !  MPEG-Player not found: (Path: 'Player' ?)" Exit'
  69.       Exit
  70.       end
  71.    address command "Run "||Player||" -p -f0 -d2 -q2 "||Titel 
  72.    end
  73. address value portname
  74. dopus front 
  75.